#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec lilu-script.ros -- $0 "$@"
|#

(ql:quickload :lilu-debugger)
(ql:quickload :lilu-emacs)
(ql:quickload :bordeaux-threads)

;;(lilu-roswell:init-debugging)
(defun test01 (si)
  (lilu-debugger:with-debugger (:abort)
    (lilu-debugger:with-break-on-signals (si)
      (warn "ciao!!!"))
    ;;(error "miao!!!")
    (sleep 0.5)))

(defun test02 (si)
  (lilu-debugger:with-debugger (:abort si)
      (warn "ciao!!!"))
  (sleep 0.5))


(lilu-debugger::enable-break)
(lilu-debugger:with-debugger (:emacs)
  (test01 nil)
  (test01 'warning)
  (test01 :none))

(lilu-debugger:with-debugger (:emacs)
  (test02 nil)
  (test02 'warning)
  (test02 :none))

(lilu-debugger:with-debugger (:emacs)
  (test02 nil)
  (test02 'warning)
  (test02 :none))
